(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     45894,       1101]
NotebookOptionsPosition[     34833,        860]
NotebookOutlinePosition[     35504,        886]
CellTagsIndexPosition[     35425,        881]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"bf6b8ac0-2ea6-4157-adaf-6e63f1497f59"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"00bcb423-0ac2-416f-8443-709b0d3f6a4f"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"5aaa62f9-5e48-419d-9c21-d219a2e9603f"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"c130a3f6-329c-4f50-810a-b569b9b3f297"]
}], "History",
 CellID->1247902091,ExpressionUUID->"7cc07ca3-12b2-4a28-a3f8-d905ef53b081"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"4a9162d6-aec3-477f-b412-076e9be2ccc3"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"cc2cae1e-7371-4533-9a14-6e9ac531d880"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836698103359*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"535806d1-9a43-4ce3-b607-3694d01bcbef"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836698397048*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"d4096d3e-8a6e-4ccc-b3ca-0e6854cf1a18"],

Cell["MaXrd/ref/GetLaueClass", "Categorization",
 CellChangeTimes->{3.743836698717454*^9},
 CellLabel->"URI",ExpressionUUID->"c35d5692-9bce-4a0a-9b65-f0c295ddd3f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"276499a2-53b1-4065-864c-99d7f50dad1d"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"20c33dae-29e6-410e-ac23-c2c5cb94102c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"115c25e9-e4f0-488a-828b-3bd941d25dbc"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"f67a4715-2d31-4bdd-b42b-0a97bab18cfc"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"5b2e6aad-761d-4304-93c9-ccc41507b30d"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"cbb51e0e-b09b-42fc-a9b9-d8b1c815a7a6"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"cadb679f-e04b-4f14-87b5-42a1e4626b90"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"cc8e8cc3-65ec-4843-b339-899ef9d3e6d6"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"15e8a95b-0e12-4a4c-bc00-540999245bf0"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"8d03bff8-9d93-4ecc-9e3e-636e5496e39e"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"c9ffc21a-7cfd-4b06-970b-9a64d53adcb8"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"3ecce74a-0303-4029-bc62-37d9911fa4fd"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"f33617ef-3781-4229-b4c6-0065e91b44d9"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"ed52ba14-bb0d-4eee-a1ce-cff3ab786900"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"55930604-f705-4897-bb7d-3183b7663244"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"54003d97-6c21-4608-875f-50c2d251f795"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"fcd6ee9d-3510-4917-8d71-239afe9767ca"]
}, Closed]],

Cell[CellGroupData[{

Cell["GetLaueClass", "ObjectName",
 CellID->1224892054,ExpressionUUID->"2a513a7e-0571-4d81-9b36-e1fd9fc8a4d6"],

Cell[TextData[{
 Cell["      ", "ModInfo",ExpressionUUID->
  "c1c56d48-1a7b-4f9b-b532-d91a93df3844"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetLaueClass",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetLaueClass"], "[", 
   StyleBox["pg", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "a025fa40-fe91-4bab-8a58-5f36a9060806"],
 "\[LineSeparator]returns the Laue class of point group ",
 Cell[BoxData[
  StyleBox["pg", "TI"]], "InlineFormula",ExpressionUUID->
  "df4c4bb6-8c37-4a57-aa87-0daccbe456ab"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "ca14ddd8-d712-4a48-a62c-3c547c8c705b"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetLaueClass",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetLaueClass"], "[", 
   StyleBox["sg", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "a970a2b4-406f-4b54-8218-4f84117b6b53"],
 "\[LineSeparator]returns the Laue class of space group ",
 Cell[BoxData[
  StyleBox["sg", "TI"]], "InlineFormula",ExpressionUUID->
  "34e03687-0fcc-4961-a5cb-c710cbd13b6a"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "d653ddd9-47d4-4600-b4a5-2b44d855d3e7"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetLaueClass",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetLaueClass"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "69c95bed-42fc-45ce-aa3d-13f80948e1dd"],
 "\[LineSeparator]returns the Laue class of the space group of ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "3f342007-eec1-4ec2-92f8-ef5ef17e5051"],
 "."
}], "Usage",
 CellChangeTimes->{{3.685700892947588*^9, 3.68570091817144*^9}, {
  3.6857009789436893`*^9, 3.685700989576123*^9}, {3.730145732994581*^9, 
  3.7301458334663277`*^9}, {3.737968523388465*^9, 3.73796852349122*^9}},
 CellID->982511436,ExpressionUUID->"5f460001-c734-49b4-b21a-fd301b8753b2"],

Cell["XXXX", "Notes",
 CellID->1067943069,ExpressionUUID->"99f26b05-018a-467f-a151-7fe5b772a324"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"dab56381-f721-4c3c-ac28-6b436e72c94c"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"0ba4e799-85d6-463d-afe7-be8f3ede3168"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"d38a5ea7-b54a-42c3-99e6-8a6b2b490745"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"f54d5c0f-06ea-40da-84fa-b93be7fa9a83"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"238c349e-6f62-4b43-b087-52c5b4ff3a08"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"62d9c5ec-6da4-43e9-b74c-03d5266d272f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"c65d6018-451f-4e6e-8d8d-a310bb8a75ee"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$LaueClasses",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$LaueClasses"]], "InlineFormula",
  ExpressionUUID->"2bcdba39-eb3c-441f-b9a9-68f103666d0d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetSymmetryOperations",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryOperations"]], "InlineFormula",
  ExpressionUUID->"a350825b-3207-48fa-ab2c-4a7e775bc7c6"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetSymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryData"]], "InlineFormula",
  ExpressionUUID->"4b689278-165d-4e12-9d6a-6d5275ac25f5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"8a846fd9-ea3b-4b7f-b7ed-470475bb84c1"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentReflections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentReflections"]], 
  "InlineFormula",ExpressionUUID->"83815191-da4a-4e83-b4d6-b3625fbd025a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"c40f9ecc-ad44-43b6-b5f3-939184692d25"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$GroupSymbolRedirect",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$GroupSymbolRedirect"]], "InlineFormula",
  ExpressionUUID->"07440c7e-7a37-46fa-b13a-6b0afc174d84"]
}], "SeeAlso",
 CellChangeTimes->{{3.685701241983779*^9, 3.685701252914542*^9}, {
  3.7301456795169353`*^9, 3.7301457142502604`*^9}, {3.7379685507050133`*^9, 
  3.73796857746979*^9}, {3.74386545894318*^9, 3.7438654589434967`*^9}},
 CellID->929782353,ExpressionUUID->"f7a8e60c-9bb4-40fc-8add-ab32ff33c21b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"a5752e5d-aeda-474b-9b0a-0981aae3a74f"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"66fef4d9-d895-479a-82a4-1c78c24a10bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"708740dc-2c49-4d7e-8601-6a8ff69eab05"],

Cell["Point groups:", "ExampleText",
 CellChangeTimes->{{3.685701006531241*^9, 3.685701015914953*^9}},
 CellID->1718602859,ExpressionUUID->"ca1a8397-5ea1-485d-bb60-3dc9ddde5df9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<mm2\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685701017157475*^9, 3.685701021135776*^9}, 
   3.7379685235616703`*^9},
 CellLabel->"In[1]:=",
 CellID->101778821,ExpressionUUID->"594d8860-a1ec-445b-b31e-b0864fb31ebe"],

Cell[BoxData["\<\"mmm\"\>"], "Output",
 CellChangeTimes->{{3.685701022672474*^9, 3.6857010433423853`*^9}, 
   3.730145629582576*^9},
 CellLabel->"Out[1]=",
 CellID->40678046,ExpressionUUID->"41f3abb4-436e-4a22-bddf-1d198e3f06fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<1\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685701027874148*^9, 3.685701030654942*^9}, 
   3.737968523649576*^9},
 CellLabel->"In[2]:=",
 CellID->470671501,ExpressionUUID->"07a5de88-4b69-4041-9b5c-e7077d90ccc5"],

Cell[BoxData["\<\"\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\)\"\>"], "Output",
 CellChangeTimes->{{3.68570103152071*^9, 3.685701043476437*^9}, 
   3.73014563053902*^9},
 CellLabel->"Out[2]=",
 CellID->116166802,ExpressionUUID->"db45bb57-2e77-4aa0-8ca2-1cf1734ac712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<23\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685701031987382*^9, 3.6857010357435923`*^9}, 
   3.737968523748201*^9},
 CellLabel->"In[3]:=",
 CellID->567690953,ExpressionUUID->"76a98ce8-c947-43a5-8f6b-c6355d94f4aa"],

Cell[BoxData["\<\"m\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>"], "Output",
 CellChangeTimes->{{3.6857010360061293`*^9, 3.6857010436049232`*^9}, 
   3.730145631090809*^9},
 CellLabel->"Out[3]=",
 CellID->1833041855,ExpressionUUID->"dc142d11-75d0-4a2b-8bfc-1c2510882012"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6ba56f10-4f21-4b13-89c5-49740e7dd9dd"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1844641777,ExpressionUUID->"6604d4b2-ea9d-427f-aec0-73d4449b34f5"],

Cell["Alternative settings of point groups:", "ExampleText",
 CellChangeTimes->{{3.685701049306584*^9, 3.685701055027965*^9}},
 CellID->1199847830,ExpressionUUID->"1f332f7f-4160-4142-bd65-0e8614790268"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<-4m2\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685701062842183*^9, 3.685701067428727*^9}, 
   3.737968523832789*^9},
 CellLabel->"In[1]:=",
 CellID->369713908,ExpressionUUID->"9535a627-8942-4b56-aff8-9fc64d516877"],

Cell[BoxData["\<\"4/mmm\"\>"], "Output",
 CellChangeTimes->{3.68570106777773*^9, 3.685701155580655*^9, 
  3.7301456329396*^9},
 CellLabel->"Out[1]=",
 CellID->163495169,ExpressionUUID->"9e11b03b-75ab-4667-96fc-f1036b968ec0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<-3m\>\"", "]"}]], "Input",
 CellChangeTimes->{3.685701148766467*^9, 3.737968523924569*^9},
 CellLabel->"In[2]:=",
 CellID->1372221049,ExpressionUUID->"2efcb8a2-c479-4766-99b4-7aaa45c2ce31"],

Cell[BoxData["\<\"\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>"], "Output",
 CellChangeTimes->{{3.685701149355269*^9, 3.685701155732067*^9}, 
   3.730145633414235*^9},
 CellLabel->"Out[2]=",
 CellID->1824451444,ExpressionUUID->"8fcac6d6-492f-4211-aede-bde5259f5f38"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<-31m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685701141890123*^9, 3.685701142852861*^9}, 
   3.7379685240296288`*^9},
 CellLabel->"In[3]:=",
 CellID->726108711,ExpressionUUID->"55bfa3e1-30a9-4d91-a4d6-bc0b80545a07"],

Cell[BoxData["\<\"\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)1m\"\>"], \
"Output",
 CellChangeTimes->{{3.685701143173541*^9, 3.685701155850546*^9}, 
   3.730145633831852*^9},
 CellLabel->"Out[3]=",
 CellID->371114425,ExpressionUUID->"e5a51f9a-08df-456d-b7ce-57b16c908396"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "64ed0469-df9d-496a-9946-18c63f322a14"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1286440805,ExpressionUUID->"2ef3f2f1-a291-4020-903b-d5afabc8409f"],

Cell["Space groups:", "ExampleText",
 CellChangeTimes->{{3.6857011804730043`*^9, 3.68570118287123*^9}},
 CellID->143482479,ExpressionUUID->"3f5f8844-9b9f-4824-85d8-4c5ce1282758"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", 
  "\"\<\!\(\*SubscriptBox[\(P4\), \(2\)]\)/mnm\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6857011768938313`*^9, 3.685701188781015*^9}, 
   3.737968524122328*^9},
 CellLabel->"In[1]:=",
 CellID->345251639,ExpressionUUID->"eabd70b9-4e2d-4fcd-bb27-09163e7a3406"],

Cell[BoxData["\<\"4/mmm\"\>"], "Output",
 CellChangeTimes->{{3.6857011896961117`*^9, 3.68570120919517*^9}, 
   3.730145635971898*^9},
 CellLabel->"Out[1]=",
 CellID->1143786536,ExpressionUUID->"5f721186-0916-46f8-9cd6-380ac852269a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<I 41/a -3 2/d\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685678763892771*^9, 3.6856787718044252`*^9}, 
   3.685700676666498*^9, 3.73796852421313*^9},
 CellLabel->"In[2]:=",
 CellID->1834331806,ExpressionUUID->"93f31819-f33a-4067-a692-3fcd600f2000"],

Cell[BoxData["\<\"m\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>"], \
"Output",
 CellChangeTimes->{3.6857012112779512`*^9, 3.7301456369082413`*^9},
 CellLabel->"Out[2]=",
 CellID->121592610,ExpressionUUID->"0f450bfb-3c99-4260-9300-ec52f6eb93a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<Fd-3m:2\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.685079684032407*^9, 3.6850796901441708`*^9}, {
   3.68507991942738*^9, 3.685079941736157*^9}, {3.685080431756981*^9, 
   3.6850804611031237`*^9}, {3.6850805754883347`*^9, 3.685080597022688*^9}, {
   3.68508064741984*^9, 3.6850806611213818`*^9}, 3.685700677390731*^9, 
   3.6857012187403297`*^9, {3.730145639100531*^9, 3.7301456415404377`*^9}, 
   3.737968524316265*^9},
 CellLabel->"In[3]:=",
 CellID->873437114,ExpressionUUID->"679d03dc-dbfc-4ada-a4e2-ea0308c0b9e0"],

Cell[BoxData["\<\"m\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>"], \
"Output",
 CellChangeTimes->{3.6857012189801207`*^9, 3.730145642305471*^9},
 CellLabel->"Out[3]=",
 CellID->2038590996,ExpressionUUID->"95e34c61-d462-41f6-a794-7ee8fbd2f87f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "1d32a85f-55b6-4639-bcd3-029ff029973e"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1529956959,ExpressionUUID->"823e9946-312a-41bb-af4b-c7b32724c2c0"],

Cell["Crystals:", "ExampleText",
 CellChangeTimes->{{3.730145595878796*^9, 3.730145597156846*^9}},
 CellID->17420735,ExpressionUUID->"49a52172-22a2-428b-bb54-ac67a84df484"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<Silicon\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.73014559902711*^9, 3.730145602260881*^9}, 
   3.737968524413126*^9},
 CellLabel->"In[1]:=",
 CellID->1236713533,ExpressionUUID->"2fae4a02-a6fa-476b-b7cf-71144356e15a"],

Cell[BoxData["\<\"m\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>"], \
"Output",
 CellChangeTimes->{3.7301456024960737`*^9, 3.730145648550725*^9},
 CellLabel->"Out[1]=",
 CellID->1588990337,ExpressionUUID->"06600250-5d45-4156-bbc2-9c52d2c083b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetLaueClass", "[", "\"\<Ice\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.730145607422202*^9, 3.73014562071682*^9}, 
   3.73796852459338*^9},
 CellLabel->"In[2]:=",
 CellID->1808070449,ExpressionUUID->"6f9b452f-2e71-4416-bdbb-f73460777092"],

Cell[BoxData["\<\"6/mmm\"\>"], "Output",
 CellChangeTimes->{{3.73014561240591*^9, 3.730145648923424*^9}},
 CellLabel->"Out[2]=",
 CellID->1189017516,ExpressionUUID->"079592e0-3feb-4f88-82dc-b513a859082c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"1c2bddb3-b006-4d4f-a104-f8a22b91c54d"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "6bd054e4-0f50-471c-b7f3-f8efed7ec487"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"7f568738-852b-45a6-9686-59587be7e869"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "0dd5dfc5-9c01-4f22-8d6a-64f66c37bbe3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"a7bc40e0-3424-4810-ba97-7148bf50eec6"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "c2bb0f3b-bb3a-4fef-95df-e81401c74784"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"3f3ebea9-e83e-469e-b3b5-7dbc6f1b4d3f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "ee3461b6-2460-421e-803c-5d249028ae7d"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"971b0b72-4952-4c84-a1cc-bb76e4cfe22d"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "344648e5-0977-475b-bb3c-b82b98e9374d"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"32ecd8e4-01f3-49e1-9050-db455e2a8498"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "5393c1ce-cc07-473d-adff-f685bd134797"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"9034907e-f690-4f18-9594-c9093058a77d"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "4449024a-0828-4af3-84aa-96ae7a40c238"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"afff430f-4df4-4d9b-ab7e-b5b8f7d20c2b"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "3b118e64-4f42-4110-b06d-bda709fc794b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"c96a702c-3390-4f2c-8ea8-93ad540b7013"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "fe3729fe-60cb-4c68-a71a-9515acbe4c3c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"7da21f06-4729-4654-a1cc-c4cfbf6ddcaf"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "0cd96b2a-4a77-4f41-ad7b-99ccec0297d4"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"42111c97-f69f-4eee-88ac-a3ef391ffa17"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"202f33fe-d079-4a91-b2d5-38d266eb67a0"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.6857009455216312`*^9, 3.685700950538649*^9}},
 CellID->993961459,ExpressionUUID->"6ca155ea-4852-46dd-9011-890bc3594b75"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GetLaueClass", "::", "missing"}], "=", 
    "\"\<No data found on \[LeftGuillemet]`1`\[RightGuillemet].\>\""}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "GetLaueClass"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", "_", "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.737968520211151*^9, {3.756711269674296*^9, 3.756711273361972*^9}, {
   3.756711355733519*^9, 3.7567114217022133`*^9}},
 CellLabel->"In[684]:=",
 CellID->92676976,ExpressionUUID->"29ea7c79-1a47-48e1-a8e7-0f9982671e2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetLaueClass", "[", "symbol_String", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g", ",", "extract"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "$CrystalData", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"g", "=", 
      RowBox[{
       RowBox[{"$CrystalData", "[", "symbol", "]"}], "[", 
       "\"\<SpaceGroup\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"StringQ", "@", "g"}], ",", 
       RowBox[{"Goto", "[", "\"\<End\>\"", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Special", " ", 
       RowBox[{"case", ":", " ", 
        RowBox[{
         RowBox[{"-", "3"}], "m"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
        "symbol", "\[Equal]", 
         "\"\<\!\(\*OverscriptBox[\(3\), \(_\)]\)1m\>\""}], "||", 
        RowBox[{"symbol", "\[Equal]", "\"\<-31m\>\""}]}], ",", 
       RowBox[{
       "Return", "[", "\"\<\!\(\*OverscriptBox[\(3\), \(_\)]\)1m\>\"", "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
        "symbol", "\[Equal]", 
         "\"\<\!\(\*OverscriptBox[\(3\), \(_\)]\)m:r\>\""}], "||", 
        RowBox[{"symbol", "\[Equal]", "\"\<-3m:r\>\""}]}], ",", 
       RowBox[{
       "Return", "[", "\"\<\!\(\*OverscriptBox[\(3\), \(_\)]\)m:r\>\"", "]"}],
        ",", "\[IndentingNewLine]", "True", ",", "Null"}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Point", " ", "group", " ", "or", " ", "space", " ", "group"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"g", "=", 
      RowBox[{
       RowBox[{"$GroupSymbolRedirect", "[", "symbol", "]"}], "[", 
       "\"\<LaueClass\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"StringQ", "@", "g"}], ",", 
       RowBox[{"Return", "@", "g"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Point", " ", "group", " ", "or", " ", "space", " ", "group", " ", 
       RowBox[{"(", 
        RowBox[{"alternative", " ", "setting"}], ")"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"extract", "=", 
      RowBox[{
       RowBox[{"FullForm", "[", 
        RowBox[{"Quiet", "@", 
         RowBox[{"Extract", "[", "\[IndentingNewLine]", 
          RowBox[{
          "$GroupSymbolRedirect", ",", "\[IndentingNewLine]", "symbol", ",", 
           "Inactivate"}], "]"}]}], "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"g", "=", 
      RowBox[{
       RowBox[{"$GroupSymbolRedirect", "[", "extract", "]"}], "[", 
       "\"\<LaueClass\>\"", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"No", " ", "match"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"StringQ", "@", "g"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"GetLaueClass", "::", "missing"}], ",", "symbol"}], "]"}], 
        ";", 
        RowBox[{"Abort", "[", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Return", "@", "g"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"End", " ", 
       RowBox[{"(", 
        RowBox[{"for", " ", "use", " ", "with", " ", "$CrystalData"}], 
        ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<End\>\"", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"GetLaueClass", "[", "g", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.668106086235696*^9, {3.6681847250202436`*^9, 
   3.668184763578227*^9}, {3.668184859415769*^9, 3.6681848958952827`*^9}, {
   3.6681849656538982`*^9, 3.668184966557592*^9}, {3.668186746700986*^9, 
   3.668186748499941*^9}, {3.668186887833519*^9, 3.668186915465481*^9}, 
   3.668187179635866*^9, {3.6681873567029552`*^9, 3.668187367461336*^9}, {
   3.6681874297574987`*^9, 3.668187481442852*^9}, {3.6681875159231033`*^9, 
   3.66818751647386*^9}, {3.668187676247175*^9, 3.66818768715088*^9}, {
   3.668187807957081*^9, 3.668187810156796*^9}, 3.6681878677945766`*^9, {
   3.668192637722664*^9, 3.6681926384504833`*^9}, {3.668192682042522*^9, 
   3.668192705296905*^9}, {3.68166924518751*^9, 3.681669257401746*^9}, 
   3.681706490571958*^9, {3.681706560665007*^9, 3.681706560808091*^9}, {
   3.681706701190172*^9, 3.6817067089323483`*^9}, {3.681706888369705*^9, 
   3.68170694343121*^9}, {3.681707009919237*^9, 3.681707054877233*^9}, 
   3.681707094253208*^9, {3.681707298537107*^9, 3.681707301151917*^9}, {
   3.681710383837879*^9, 3.681710517243684*^9}, {3.681710549236743*^9, 
   3.681710591906762*^9}, 3.68171076139857*^9, 3.681710814623724*^9, {
   3.6817109067478313`*^9, 3.6817110010439167`*^9}, {3.681711080522023*^9, 
   3.6817111039844112`*^9}, 3.681711207870273*^9, {3.6817112607821617`*^9, 
   3.681711305188384*^9}, {3.681711445370324*^9, 3.681711513296112*^9}, {
   3.6817115774404993`*^9, 3.681711650636854*^9}, {3.68171500692944*^9, 
   3.681715026767819*^9}, {3.681715181501337*^9, 3.681715181739588*^9}, {
   3.681715678282447*^9, 3.6817156946895933`*^9}, {3.681715923758252*^9, 
   3.6817159597723722`*^9}, {3.68171782238949*^9, 3.681717946865253*^9}, {
   3.681718348825375*^9, 3.681718349067914*^9}, {3.681718672178816*^9, 
   3.68171869694698*^9}, {3.681718727898713*^9, 3.681718795793612*^9}, {
   3.681719297392269*^9, 3.681719364987854*^9}, {3.681719424875423*^9, 
   3.681719476273019*^9}, {3.681719564217062*^9, 3.6817195753909283`*^9}, {
   3.681719696949328*^9, 3.681719703508996*^9}, {3.681720146779862*^9, 
   3.681720188282736*^9}, {3.681720357048739*^9, 3.681720404007724*^9}, {
   3.681720538565111*^9, 3.68172054257139*^9}, {3.681720713993903*^9, 
   3.681720714144103*^9}, {3.6817209858918037`*^9, 3.681721182870202*^9}, {
   3.681721229493627*^9, 3.6817212759562902`*^9}, {3.681721318685071*^9, 
   3.681721337315277*^9}, {3.681721411035223*^9, 3.681721483737514*^9}, {
   3.6817215519766006`*^9, 3.6817216024457273`*^9}, {3.681721640646819*^9, 
   3.681721648839014*^9}, {3.681721731125741*^9, 3.681721732668375*^9}, {
   3.681721789833881*^9, 3.681721806418096*^9}, {3.6817219185830507`*^9, 
   3.6817219344066553`*^9}, {3.681722442266707*^9, 3.6817224444361963`*^9}, {
   3.6817227023431807`*^9, 3.681722723774548*^9}, {3.6817228369801702`*^9, 
   3.681722870587195*^9}, 3.6817229070837173`*^9, {3.681723229228771*^9, 
   3.681723316371806*^9}, 3.681723352394136*^9, {3.681723491110834*^9, 
   3.6817234976219*^9}, {3.681723533046878*^9, 3.681723549182931*^9}, {
   3.681723690723069*^9, 3.681723710538261*^9}, {3.681723746168332*^9, 
   3.681723764431592*^9}, {3.6817239634608393`*^9, 3.681724024526379*^9}, {
   3.681724085449534*^9, 3.6817242176903954`*^9}, {3.6817242696057167`*^9, 
   3.681724295774458*^9}, 3.681724327237109*^9, {3.681724474011566*^9, 
   3.681724476993256*^9}, 3.681724828780448*^9, {3.6818125091048193`*^9, 
   3.6818125114155693`*^9}, {3.6818368257106333`*^9, 3.68183686908536*^9}, {
   3.681836932372287*^9, 3.6818369624101877`*^9}, 3.681837110530672*^9, {
   3.681837208341257*^9, 3.681837224397664*^9}, {3.6818373595787363`*^9, 
   3.6818374537754908`*^9}, {3.681837562221323*^9, 3.6818375769428663`*^9}, {
   3.681910108411652*^9, 3.681910109523672*^9}, {3.681914019772044*^9, 
   3.6819140660350637`*^9}, {3.681914192192573*^9, 3.681914197016157*^9}, {
   3.6819143018703423`*^9, 3.6819143025663137`*^9}, {3.681915201163806*^9, 
   3.681915204987383*^9}, {3.681915310962316*^9, 3.681915331517808*^9}, {
   3.681915405175632*^9, 3.6819154062625723`*^9}, {3.681915499756755*^9, 
   3.681915499981236*^9}, {3.682073936912169*^9, 3.6820739483816547`*^9}, {
   3.6820743306881447`*^9, 3.682074335621664*^9}, {3.682074407370736*^9, 
   3.682074414704529*^9}, {3.6820745276580267`*^9, 3.6820745282934628`*^9}, {
   3.6820746925334578`*^9, 3.682074694860141*^9}, {3.682074732983082*^9, 
   3.682074765426908*^9}, {3.6820749940801067`*^9, 3.682075014622149*^9}, {
   3.682075051439227*^9, 3.6820750769809523`*^9}, {3.682080559474235*^9, 
   3.682080571064229*^9}, {3.682081192052569*^9, 3.682081198850922*^9}, {
   3.6820825372652617`*^9, 3.682082587828931*^9}, {3.682083882451795*^9, 
   3.682083906361766*^9}, {3.682084834510179*^9, 3.682084909148551*^9}, {
   3.682085355867062*^9, 3.6820853570730352`*^9}, {3.682085387352064*^9, 
   3.682085468590469*^9}, {3.6820954917674417`*^9, 3.682095491933237*^9}, {
   3.6820955359818773`*^9, 3.6820955368911743`*^9}, {3.6820955810166683`*^9, 
   3.682095702639804*^9}, {3.6820958051670427`*^9, 3.682095833859441*^9}, {
   3.6820959556190987`*^9, 3.682095960147934*^9}, {3.682096089911231*^9, 
   3.682096098702631*^9}, {3.6820961601906853`*^9, 3.682096164437451*^9}, {
   3.6820962600043573`*^9, 3.682096261183568*^9}, 3.6820964289853363`*^9, {
   3.682101172972685*^9, 3.682101186499799*^9}, {3.682102756494223*^9, 
   3.6821027720587893`*^9}, {3.682102815514278*^9, 3.682102843539885*^9}, {
   3.682102913889373*^9, 3.6821029181999683`*^9}, {3.682134119475279*^9, 
   3.68213414049387*^9}, {3.682134230034416*^9, 3.682134358353902*^9}, {
   3.682134389202623*^9, 3.682134415753475*^9}, {3.68213471223449*^9, 
   3.682134738680016*^9}, {3.682135167917287*^9, 3.6821351692739058`*^9}, {
   3.682138062911598*^9, 3.682138063720244*^9}, {3.6821381082904797`*^9, 
   3.682138208115355*^9}, {3.682138260558123*^9, 3.682138470630207*^9}, {
   3.682142430328573*^9, 3.682142561470036*^9}, {3.6821426027834806`*^9, 
   3.682142633588481*^9}, {3.682142673674217*^9, 3.682142683054764*^9}, {
   3.682142831982066*^9, 3.6821428879204903`*^9}, {3.6821443136719933`*^9, 
   3.682144398215694*^9}, {3.682144667707994*^9, 3.682144722485908*^9}, {
   3.682146073210956*^9, 3.68214608362833*^9}, {3.6821461172637672`*^9, 
   3.6821461630666447`*^9}, {3.6821463016789713`*^9, 3.682146327282445*^9}, {
   3.682151620835616*^9, 3.682151624741599*^9}, {3.682151684939176*^9, 
   3.6821516924478617`*^9}, {3.6821521411767*^9, 3.682152149634416*^9}, {
   3.682152264995434*^9, 3.682152328608294*^9}, {3.682152441457012*^9, 
   3.68215245878516*^9}, {3.682152762344564*^9, 3.682152791810916*^9}, {
   3.6821528601618853`*^9, 3.682152860391903*^9}, {3.6821529539507027`*^9, 
   3.682152984540741*^9}, {3.68215302321913*^9, 3.682153129482265*^9}, {
   3.682153280259882*^9, 3.682153321673149*^9}, {3.684668021791493*^9, 
   3.6846681658947287`*^9}, {3.6846682780447197`*^9, 3.684668352798271*^9}, {
   3.684668436113463*^9, 3.684668448437615*^9}, {3.6846684900089483`*^9, 
   3.684668526904063*^9}, {3.684668561814063*^9, 3.68466856288406*^9}, {
   3.684668655065772*^9, 3.6846686926482964`*^9}, {3.684668903775888*^9, 
   3.684668909809854*^9}, {3.68466897106539*^9, 3.6846690320927258`*^9}, {
   3.685079528520215*^9, 3.6850795700522537`*^9}, {3.685079609824223*^9, 
   3.68507976209107*^9}, {3.6850801175697823`*^9, 3.685080136669197*^9}, {
   3.6850801705077353`*^9, 3.685080193540316*^9}, {3.6850802428064957`*^9, 
   3.685080244336314*^9}, {3.68508029169517*^9, 3.6850803659439173`*^9}, {
   3.685080400088478*^9, 3.685080401518166*^9}, {3.6850805073455763`*^9, 
   3.685080567126417*^9}, {3.6852486796520853`*^9, 3.6852486864393597`*^9}, {
   3.685248720001297*^9, 3.685248724174099*^9}, 3.6852487544120092`*^9, {
   3.685248800204956*^9, 3.685248803000963*^9}, {3.685249136526149*^9, 
   3.685249179200903*^9}, {3.685249683180578*^9, 3.6852497229340143`*^9}, {
   3.685249765477912*^9, 3.685249806794134*^9}, {3.685249936405735*^9, 
   3.685250039598538*^9}, {3.685250203904066*^9, 3.685250237194146*^9}, {
   3.685250268520568*^9, 3.685250278543681*^9}, {3.685250310995026*^9, 
   3.685250473891493*^9}, {3.685250515497068*^9, 3.685250550260337*^9}, {
   3.685250596138503*^9, 3.685250597311151*^9}, {3.685250650170144*^9, 
   3.685250701320359*^9}, {3.685678714163109*^9, 3.685678724227903*^9}, {
   3.685680631552026*^9, 3.685680726344557*^9}, {3.685680777866826*^9, 
   3.685680813584144*^9}, {3.685700637133027*^9, 3.685700641664912*^9}, {
   3.7177409045951014`*^9, 3.717740920784957*^9}, {3.730145930529347*^9, 
   3.730145931248543*^9}, {3.730146045655348*^9, 3.730146046973926*^9}, {
   3.737968520312047*^9, 3.737968520667469*^9}, {3.7438654556085653`*^9, 
   3.743865455699587*^9}, {3.758529519679034*^9, 3.7585295218073063`*^9}, 
   3.7627930933853416`*^9},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[687]:=",
 CellID->696291557,ExpressionUUID->"c17a9081-4cc5-4aa2-b8db-9add788000ce"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[17944, 525, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"1c2bddb3-b006-4d4f-a104-f8a22b91c54d",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 35231, 874}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"7cc07ca3-12b2-4a28-a3f8-d905ef53b081",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"4a9162d6-aec3-477f-b412-076e9be2ccc3",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"cc2cae1e-7371-4533-9a14-6e9ac531d880",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"535806d1-9a43-4ce3-b607-3694d01bcbef",
 CellID->605800465],
Cell[1624, 50, 172, 3, 30, "Categorization",ExpressionUUID->"d4096d3e-8a6e-4ccc-b3ca-0e6854cf1a18",
 CellID->468444828],
Cell[1799, 55, 164, 2, 30, "Categorization",ExpressionUUID->"c35d5692-9bce-4a0a-9b65-f0c295ddd3f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2000, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"276499a2-53b1-4065-864c-99d7f50dad1d",
 CellID->477174294],
Cell[2113, 65, 100, 1, 70, "Keywords",ExpressionUUID->"20c33dae-29e6-410e-ac23-c2c5cb94102c",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2250, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"115c25e9-e4f0-488a-828b-3bd941d25dbc",
 CellID->1872225408],
Cell[2373, 74, 149, 2, 70, "Template",ExpressionUUID->"f67a4715-2d31-4bdd-b42b-0a97bab18cfc",
 CellID->1562036412],
Cell[2525, 78, 137, 2, 70, "Template",ExpressionUUID->"5b2e6aad-761d-4304-93c9-ccc41507b30d",
 CellID->158391909],
Cell[2665, 82, 136, 2, 70, "Template",ExpressionUUID->"cbb51e0e-b09b-42fc-a9b9-d8b1c815a7a6",
 CellID->1360575930],
Cell[2804, 86, 137, 2, 70, "Template",ExpressionUUID->"cadb679f-e04b-4f14-87b5-42a1e4626b90",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2978, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"cc8e8cc3-65ec-4843-b339-899ef9d3e6d6",
 CellID->307771771],
Cell[3089, 96, 118, 2, 70, "Details",ExpressionUUID->"15e8a95b-0e12-4a4c-bc00-540999245bf0",
 CellID->670882175],
Cell[3210, 100, 124, 2, 70, "Details",ExpressionUUID->"8d03bff8-9d93-4ecc-9e3e-636e5496e39e",
 CellID->350963985],
Cell[3337, 104, 119, 2, 70, "Details",ExpressionUUID->"c9ffc21a-7cfd-4b06-970b-9a64d53adcb8",
 CellID->8391405],
Cell[3459, 108, 124, 2, 70, "Details",ExpressionUUID->"3ecce74a-0303-4029-bc62-37d9911fa4fd",
 CellID->3610269],
Cell[3586, 112, 116, 2, 70, "Details",ExpressionUUID->"f33617ef-3781-4229-b4c6-0065e91b44d9",
 CellID->401364205],
Cell[3705, 116, 116, 2, 70, "Details",ExpressionUUID->"ed52ba14-bb0d-4eee-a1ce-cff3ab786900",
 CellID->350204745],
Cell[3824, 120, 118, 2, 70, "Details",ExpressionUUID->"55930604-f705-4897-bb7d-3183b7663244",
 CellID->732958810],
Cell[3945, 124, 133, 2, 70, "Details",ExpressionUUID->"54003d97-6c21-4608-875f-50c2d251f795",
 CellID->222905350],
Cell[4081, 128, 122, 2, 70, "Details",ExpressionUUID->"fcd6ee9d-3510-4917-8d71-239afe9767ca",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4240, 135, 110, 1, 63, "ObjectName",ExpressionUUID->"2a513a7e-0571-4d81-9b36-e1fd9fc8a4d6",
 CellID->1224892054],
Cell[4353, 138, 1865, 47, 151, "Usage",ExpressionUUID->"5f460001-c734-49b4-b21a-fd301b8753b2",
 CellID->982511436],
Cell[6221, 187, 97, 1, 25, "Notes",ExpressionUUID->"99f26b05-018a-467f-a151-7fe5b772a324",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[6355, 193, 112, 1, 44, "TutorialsSection",ExpressionUUID->"dab56381-f721-4c3c-ac28-6b436e72c94c",
 CellID->250839057],
Cell[6470, 196, 100, 1, 16, "Tutorials",ExpressionUUID->"0ba4e799-85d6-463d-afe7-be8f3ede3168",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[6607, 202, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"d38a5ea7-b54a-42c3-99e6-8a6b2b490745",
 CellID->1268215905],
Cell[6748, 205, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"f54d5c0f-06ea-40da-84fa-b93be7fa9a83",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[6898, 211, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"238c349e-6f62-4b43-b087-52c5b4ff3a08",
 CellID->1584193535],
Cell[7021, 214, 104, 1, 16, "RelatedLinks",ExpressionUUID->"62d9c5ec-6da4-43e9-b74c-03d5266d272f",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[7162, 220, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"c65d6018-451f-4e6e-8d8d-a310bb8a75ee",
 CellID->1255426704],
Cell[7275, 223, 1921, 46, 39, "SeeAlso",ExpressionUUID->"f7a8e60c-9bb4-40fc-8add-ab32ff33c21b",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[9233, 274, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"a5752e5d-aeda-474b-9b0a-0981aae3a74f",
 CellID->38303248],
Cell[9348, 277, 101, 1, 16, "MoreAbout",ExpressionUUID->"66fef4d9-d895-479a-82a4-1c78c24a10bb",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[9486, 283, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"708740dc-2c49-4d7e-8601-6a8ff69eab05",
 CellID->880084151],
Cell[9900, 296, 178, 2, 22, "ExampleText",ExpressionUUID->"ca1a8397-5ea1-485d-bb60-3dc9ddde5df9",
 CellID->1718602859],
Cell[CellGroupData[{
Cell[10103, 302, 267, 5, 26, "Input",ExpressionUUID->"594d8860-a1ec-445b-b31e-b0864fb31ebe",
 CellID->101778821],
Cell[10373, 309, 229, 4, 25, "Output",ExpressionUUID->"41f3abb4-436e-4a22-bddf-1d198e3f06fe",
 CellID->40678046]
}, Open  ]],
Cell[CellGroupData[{
Cell[10639, 318, 263, 5, 26, "Input",ExpressionUUID->"07a5de88-4b69-4041-9b5c-e7077d90ccc5",
 CellID->470671501],
Cell[10905, 325, 266, 4, 26, "Output",ExpressionUUID->"db45bb57-2e77-4aa0-8ca2-1cf1734ac712",
 CellID->116166802]
}, Open  ]],
Cell[CellGroupData[{
Cell[11208, 334, 266, 5, 26, "Input",ExpressionUUID->"76a98ce8-c947-43a5-8f6b-c6355d94f4aa",
 CellID->567690953],
Cell[11477, 341, 274, 4, 26, "Output",ExpressionUUID->"dc142d11-75d0-4a2b-8bfc-1c2510882012",
 CellID->1833041855]
}, Open  ]],
Cell[CellGroupData[{
Cell[11788, 350, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"6604d4b2-ea9d-427f-aec0-73d4449b34f5",
 CellID->1844641777],
Cell[12034, 357, 202, 2, 22, "ExampleText",ExpressionUUID->"1f332f7f-4160-4142-bd65-0e8614790268",
 CellID->1199847830],
Cell[CellGroupData[{
Cell[12261, 363, 266, 5, 26, "Input",ExpressionUUID->"9535a627-8942-4b56-aff8-9fc64d516877",
 CellID->369713908],
Cell[12530, 370, 224, 4, 25, "Output",ExpressionUUID->"9e11b03b-75ab-4667-96fc-f1036b968ec0",
 CellID->163495169]
}, Open  ]],
Cell[CellGroupData[{
Cell[12791, 379, 238, 4, 26, "Input",ExpressionUUID->"2efcb8a2-c479-4766-99b4-7aaa45c2ce31",
 CellID->1372221049],
Cell[13032, 385, 270, 4, 26, "Output",ExpressionUUID->"8fcac6d6-492f-4211-aede-bde5259f5f38",
 CellID->1824451444]
}, Open  ]],
Cell[CellGroupData[{
Cell[13339, 394, 268, 5, 26, "Input",ExpressionUUID->"55bfa3e1-30a9-4d91-a4d6-bc0b80545a07",
 CellID->726108711],
Cell[13610, 401, 272, 5, 26, "Output",ExpressionUUID->"e5a51f9a-08df-456d-b7ce-57b16c908396",
 CellID->371114425]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13931, 412, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"2ef3f2f1-a291-4020-903b-d5afabc8409f",
 CellID->1286440805],
Cell[14177, 419, 178, 2, 22, "ExampleText",ExpressionUUID->"3f5f8844-9b9f-4824-85d8-4c5ce1282758",
 CellID->143482479],
Cell[CellGroupData[{
Cell[14380, 425, 306, 6, 27, "Input",ExpressionUUID->"eabd70b9-4e2d-4fcd-bb27-09163e7a3406",
 CellID->345251639],
Cell[14689, 433, 232, 4, 25, "Output",ExpressionUUID->"5f721186-0916-46f8-9cd6-380ac852269a",
 CellID->1143786536]
}, Open  ]],
Cell[CellGroupData[{
Cell[14958, 442, 299, 5, 26, "Input",ExpressionUUID->"93f31819-f33a-4067-a692-3fcd600f2000",
 CellID->1834331806],
Cell[15260, 449, 248, 4, 26, "Output",ExpressionUUID->"0f450bfb-3c99-4260-9300-ec52f6eb93a8",
 CellID->121592610]
}, Open  ]],
Cell[CellGroupData[{
Cell[15545, 458, 569, 9, 26, "Input",ExpressionUUID->"679d03dc-dbfc-4ada-a4e2-ea0308c0b9e0",
 CellID->873437114],
Cell[16117, 469, 247, 4, 26, "Output",ExpressionUUID->"95e34c61-d462-41f6-a794-7ee8fbd2f87f",
 CellID->2038590996]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16413, 479, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"823e9946-312a-41bb-af4b-c7b32724c2c0",
 CellID->1529956959],
Cell[16659, 486, 172, 2, 22, "ExampleText",ExpressionUUID->"49a52172-22a2-428b-bb54-ac67a84df484",
 CellID->17420735],
Cell[CellGroupData[{
Cell[16856, 492, 269, 5, 29, "Input",ExpressionUUID->"2fae4a02-a6fa-476b-b7cf-71144356e15a",
 CellID->1236713533],
Cell[17128, 499, 247, 4, 26, "Output",ExpressionUUID->"06600250-5d45-4156-bbc2-9c52d2c083b5",
 CellID->1588990337]
}, Open  ]],
Cell[CellGroupData[{
Cell[17412, 508, 264, 5, 26, "Input",ExpressionUUID->"6f9b452f-2e71-4416-bdbb-f73460777092",
 CellID->1808070449],
Cell[17679, 515, 204, 3, 25, "Output",ExpressionUUID->"079592e0-3feb-4f88-82dc-b513a859082c",
 CellID->1189017516]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17944, 525, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"1c2bddb3-b006-4d4f-a104-f8a22b91c54d",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[18102, 529, 242, 5, 33, "ExampleSection",ExpressionUUID->"7f568738-852b-45a6-9686-59587be7e869",
 CellID->1293636265],
Cell[18347, 536, 265, 5, 21, "ExampleSection",ExpressionUUID->"a7bc40e0-3424-4810-ba97-7148bf50eec6",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[18637, 545, 244, 5, 21, "ExampleSection",ExpressionUUID->"3f3ebea9-e83e-469e-b3b5-7dbc6f1b4d3f",
 CellID->2061341341],
Cell[18884, 552, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"971b0b72-4952-4c84-a1cc-bb76e4cfe22d",
 CellID->1757724783],
Cell[19134, 559, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"32ecd8e4-01f3-49e1-9050-db455e2a8498",
 CellID->1295379749]
}, Closed]],
Cell[19396, 567, 248, 5, 21, "ExampleSection",ExpressionUUID->"9034907e-f690-4f18-9594-c9093058a77d",
 CellID->258228157],
Cell[19647, 574, 259, 5, 21, "ExampleSection",ExpressionUUID->"afff430f-4df4-4d9b-ab7e-b5b8f7d20c2b",
 CellID->2123667759],
Cell[19909, 581, 252, 5, 21, "ExampleSection",ExpressionUUID->"c96a702c-3390-4f2c-8ea8-93ad540b7013",
 CellID->1305812373],
Cell[20164, 588, 257, 5, 21, "ExampleSection",ExpressionUUID->"7da21f06-4729-4654-a1cc-c4cfbf6ddcaf",
 CellID->1653164318],
Cell[20424, 595, 249, 5, 21, "ExampleSection",ExpressionUUID->"42111c97-f69f-4eee-88ac-a3ef391ffa17",
 CellID->589267740],
Cell[CellGroupData[{
Cell[20698, 604, 374, 8, 21, "ExampleSection",ExpressionUUID->"6ca155ea-4852-46dd-9011-890bc3594b75",
 CellID->993961459],
Cell[21075, 614, 760, 19, 102, "Input",ExpressionUUID->"29ea7c79-1a47-48e1-a8e7-0f9982671e2a",
 InitializationCell->False,
 CellID->92676976],
Cell[21838, 635, 12967, 221, 669, "Input",ExpressionUUID->"c17a9081-4cc5-4aa2-b8db-9add788000ce",
 InitializationCell->False,
 CellID->696291557]
}, Closed]]
}, Open  ]]
}
]
*)

